home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scrsav / scrsave.frm < prev    next >
Text File  |  1995-05-08  |  1KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   345
  5.    ClientLeft      =   3750
  6.    ClientTop       =   4260
  7.    ClientWidth     =   825
  8.    Height          =   750
  9.    Left            =   3690
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   345
  14.    ScaleWidth      =   825
  15.    Top             =   3915
  16.    Width           =   945
  17.    Begin CommandButton Command1 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "Saver"
  20.       Height          =   375
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       TabStop         =   0   'False
  24.       Top             =   0
  25.       Width           =   855
  26.    End
  27. End
  28. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  29.  
  30.  
  31. Sub Command1_Click ()
  32.  
  33.     Dim Result As Long
  34.     Const WM_SYSCOMMAND = &H112
  35.     Const SC_SCREENSAVE = &HF140
  36.     Result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
  37.  
  38. End Sub
  39.  
  40.